10 :GOTO5000:REM---RUN :
11 :GOTO3300:REM---EDIT:
20 :A$="BUBBLE & DIMOND":OPEN1,8,15,"S:"+A$:CLOSE1:SAVEA$,8:RETURN
21 :
22 :
46 :DEFFN AS(A)=A+(A>63)*64-(A>95ANDA<128)*32+(A>191)*64+(A=255)*33
97 :
98 :
99 :====================================
100 :REM-----SET-CURSOR(P)
101 :POKE214,P:POKE211,(P-INT(P))*101:SYS58640:RETURN
102 :P=PEEK(214)+POS(.)/100:RETURN
103 :A=53265:POKEA,27-(PEEK(A)AND16):RETURN:
104 :POKE53265,11:ZZ=(FNR(8)-1)*30+10:TI$="000000":RETURN:
105 :POKE53265,27:ZZ=.1:RETURN:
106 :
107 :
110 :REM---- RESTORE ADRESSE(A) ----
111 :POKE66,INT((A-1)/256):POKE65,A-PEEK(66)*256-1:RETURN:
112 :DEFFNL(A)=PEEK(61)+PEEK(62)*256+1:::RETURN: ---SYNTAX:: A=FNL(.):GOSUB80
113 :
114 :FORI=.TO(PEEK(162)AND8):A=FNR(I):NEXT:RETURN:---RANDOM SET
115 :
120 :REM----STRING-GEN(A$,L)
121 :A$=A$+A$:ON-(LEN(A$)*2<L)GOTO121:A$=A$+LEFT$(A$,L-LEN(A$)):RETURN
122 :
130 :REM----SREEN-INIT
131 :POKE58718,96:SYS58692:POKE58718,162:RETURN
132 :
140 :REM----JOYSTICK & TASTEN-ABFRAGE
141 :GETA$:J=31-PEEK(JO)AND31:IFZZ>.1THEN:ON-(TI>ZZ)GOSUB105:
142 :ON-(J=.ANDA$="")GOTO141:IFA$THEN:RETURN
143 :IFJAND1THEN:A$="[145]":RETURN
144 :IFJAND2THEN:A$="":RETURN
145 :IFJAND4THEN:A$="[157]":RETURN
146 :IFJAND8THEN:A$="":RETURN
147 :IFJAND16THEN:A$=R$:RETURN
148 :RETURN
149 :
299 :
300 :REM----SCHIRM-CHECK(A):
301 :FORI=ATOA+961:J=PEEK(I):D(J)=D(J)+1:NEXT:RETURN
360 :J=128:FORI=.TO7:PRINTMID$(".*",1-((AANDJ)>.),1);:J=J/2:NEXT:RETURN
996 :
997 :
998 :
999 :
1000 :REM==============================
1001 :REM
1002 :REM      SPIEL
1003 :REM
1004 :REM==============================
1005 :
1100 :REM---STEUERUNG
1110 :FORI=.TOGS+FNR(GW):NEXT:PRINT" [157]"A$;FI$;
1111 :GOSUB140:
1112 :IFA$=""THEN:IFX<39THEN:X=X+1:C=1:GOTO1130
1113 :IFA$="[157]"THEN:IFX>.THEN:X=X-1:C=-1:GOTO1130
1114 :IFA$="[145]"THEN:IFY>.THEN:Y=Y-1:C=-40:GOTO1130
1115 :IFA$=""THEN:IFY<24THEN:Y=Y+1:C=40:GOTO1130
1120 :ON1-(A$="[133]")-2*(A$="[148]")GOTO1111,1200,3300:
1129 :
1130 :REM----BEWEGUNGEN PRUEFEN
1132 :P=FNP(C):IFZZ=.1THEN:ONFNR(ZT)GOSUB104
1133 :ON-(P=32)GOTO1110:IFP=FGTHEN:DI=DI+1:GOTO1110
1134 :IFP=197GOTO1150:--ENDE
1135 :IFZ<3THEN:X=X+(C=1)-(C=-1):Y=Y+(C=40)-(C=-40):GOTO1111:---KEIN ANSTOSSEN
1136 :
1137 :
1138 :
1150 :REM---ABBRUCH UND ENDE  -----
1151 :POKE53265,27:PRINT"[146] [157]"A$FI$;:C=P
1152 :GOSUB130:P=24.11:GOSUB100:ON1-(C=197)GOTO1160
1154 :PRINT"***  [199][197][211][195][200][193][198][198][212]  ***";:GOSUB1600:R=0:GOTO1200
1160 :R=2:IFZ<5THEN:PRINT"  [213][197][194][197][210][199][197][212][210][197][212][197][206]  ";:GOSUB1620:GOTO1200
1161 :PRINT"[157]* [196][193][211] [215][193][210] [196][193][211] [197][206][196][197] *";:GOSUB1620:GOTO1200
1198 :
1199 :
1200 :REM----PUNKTBERECHNUNG
1210 :DI=DI+R*DI*(Z>3):D=PK:PK=PK+DI
1211 :R=(R=2ANDZ>4):PK(.)=PK:LV(.)=LV
1212 :IF(A$="[133]")THEN:ON1-(PK=.)GOTO1221,4000:
1213 :GOSUB140:IF(R<.)AND(A$="[136]"ORA$="[140]"ORA$="")GOTO2000:
1217 :
1219 :
1220 :REM----PUNKTANZEIGE
1221 :A$=MID$("[150][159][154]",FNR(4),1)
1222 :GOSUB130:PRINT"[146]"A$;:P=5.02:H=14:L=34:D$=" [146][150]":GOSUB1500
1223 :PRINT"[158][211][212][213][198][197][146]:[158]"MID$(STR$(Z),2)TAB(23)"[204][197][214][197][204][146]:[158]"MID$(STR$(LV),2)
1224 PRINTTAB(C+2)"[181][181][181][158][146][208][213][206][203][212][218][193][200][204]:[146][158]"D"[157] "
1225 PRINTTAB(C+2)"[181][181][181][158][146][196][201][193][205][193][206][212][197][206]:[146][158]"DI"[157] [145][145][145][145][145]":
1226 :FORI=1TO1500:NEXT:FORI=DTOPKSTEPSGN(DI):POKE211,C+20:PRINTI"[157] ";:NEXT
1227 :PK=FNK(PK)
1229 :
1240 :GOSUB140:IF(R<.)AND(A$=""ORA$="[136]"ORA$="[140]")GOTO2000
1241 :ON1-(A$="[133]"ORA$="[157]"ORR<.)GOTO2011
1242 :POKE60138,16:POKE60189,4:GOTO4000:
1498 :
1499 :
1500 :REM----WINDOW(P,L,H,D$)
1501 :A$="[185]":GOSUB120:B$=A$:A$="[184]":GOSUB120:GOSUB100:C=POS(.):POKESP,ASC(D$)
1502 :F$=CHR$(FNS(.)):D$=RIGHT$(D$,2):PRINT"[146] "A$"[146] ":POKE211,C
1503 :FORI=3TOH:PRINTF$"[146]  [146]"D$SPC(L-2)F$" [146] ":POKE211,C:NEXT:
1504 :PRINT"[146] "B$"[146] ";:POKESP,29::P=P+1.02:C=(P-INT(P))*101:GOSUB100:RETURN
1505 :
1506 :L=5:H=5:P=15.6:GOSUB200:END
1507 :
1508 :
1599 :
1600 :A=4:REM---FLIMMERN
1601 :A=(A+FNR(A))*40:
1602 :POKE198,0:B=PEEK(53280):FORI=.TOA:POKE53280,IAND15:I=I+PEEK(198)*A:NEXT:
1603 :POKE53280,B:RETURN
1604 :
1605 :
1620 :REM---WACKELN(A)
1621 :FORI=1TO255:POKE53270,IAND15:NEXT
1622 :POKE53270,200:RETURN
1623 :
1624 :
1996 :
1997 :
1998 :
1999 :
2000 :REM==============================
2001 :REM
2002 :REM      BILD-AUFBAU
2003 :REM
2004 :REM==============================
2005 :
2010 :POKE53280,4:POKE53281,12:PRINT"[152][147]";::PK=.:LV=.:Z0=-(Z=9)*9:
2011 :GOSUB114:GOSUB2040:
2012 :A$=MID$("[150][159][155]",FNR(3),1):A=FNR(2):ON(A)GOSUB2020,2033:
2013 :A$=MID$("[159][150][155]",FNR(3),1):ON(A)GOSUB2030,2021:
2014 :GETA$:GOSUB5500:ON-(A$="[133]")GOTO1200:GOTO2050
2015 :
2016 :
2020 :PRINT"[152][147]";:REM----RAHMEN
2021 :A$=MID$("[150][154][155][159]",FNR(5),1):
2022 :GOSUB130:POKE217+25,7
2023 :PRINTA$""LEFT$(L1$,9)"[158]  [200][197][210][218][197][206] & [196][201][193][205][193][206][212][197][206]  "A$RIGHT$(L1$,9)
2024 :PRINT""L2$"[157]"L2$;:POKE214,23:PRINTR$""L1$;::GOSUB130:RETURN:
2025 :
2026 :
2030 :REM----SCHIRM FUELLEN
2032 :F$=A$:PRINT"[146]"A$;:GOSUB2042:L=38:B=23:GOSUB2800:RETURN
2033 :F$=A$:PRINTA$;:GOSUB2042:POKEBL,HG:PRINT"[147]";:POKEBL,32:RETURN:
2038 :
2039 :
2040 :REM----MODUS EINSTELLEN
2041 :LV=FNK(LV+1):IFZ0THEN:Z=LV*-(LV<9)+FNR(8)*-(LV>8)
2042 :
2043 :HG=102:A$="[166]":M=5:
2044 :IFZ=6ORZ=8OR((FNM(LV)=.)ANDLV>10ANDZ>1)THEN:HG=96:A$="[160]"
2045 :M=4:ZZ=-(Z>6OR(Z>1ANDLV>19ANDFNM(LV)=.))*.1:ZT=10+FNR(10):RETURN:
2046 :
2050 :REM---WEGE AUFBAUEN
2051 :GOSUB2820:A=FNR(5):IFA=1THEN:PRINT"[153][146]";:A$="[181]"
2052 :IFA=2THEN:PRINT"[146]";:A$="[179]"
2053 :IFA=3THEN:PRINT"[146]";:A$="[176]"
2054 :IFA=4THEN:PRINT"[158][146]";:A$="[177]"
2055 :IFA=5THEN:PRINT"[153][146]";:A$="[180]"
2056 :
2060 :V=FNR(3)+3*-(LV<5):A=(40+FNR(80))/(V*.7)+V*V*-(V<6)
2061 :GOSUB2830:PRINTA$"[157]";:FG=FNP(.)
2062 :
2064 :REM---END SETZEN
2065 :IF(FNP(.)<>HG)THEN:L=1:A$="":K=FNR(4):GOSUB2810:GOTO2065:
2066 :PRINT"[197]";:P=Y+X/100:GOSUB100:GOSUB130:
2067 :
2070 :REM---FIGUR INSTALL
2071 :A=L(FNR(3))
2072 :GOSUB110:GOSUB5804
2074 :
2080 :S=.:DI=.:A$="":POKE198,1:GOTO1000
2097 :
2098 :
2099 :
2800 :REM----QUADRATE AUSGEBEN(L,B,A$)
2802 :A=POS(.):GOSUB120:FORJ=1TOB:POKE211,A:PRINTA$"[157]";:NEXT:PRINT"[145]";:RETURN
2804 :
2805 :
2810 :REM----LINIEN-AUSGABE(A$,K,L)-----
2811 :IFK=1THEN:IF(X1+L<38)THEN:X1=X1+L:B$="":GOTO2816
2812 :IFK=2THEN:IF(X1-L>1)THEN:X1=X1-L:B$="[157][157]":GOTO2816
2813 :IFK=3THEN:IF(Y1+L<24)THEN:Y1=Y1+L:B$="[157]":GOTO2816
2814 :IFK=4THEN:IF(Y1-L>1)THEN:Y1=Y1-L:B$="[157][145]":GOTO2816
2815 :K=.:RETURN
2816 :B$=A$+B$:FORI=1TOL:PRINTB$;:NEXT:RETURN
2817 :
2818 :
2820 :REM----START-PUNKT-SUCHEN
2821 :K=FNR(2):X=FNR(38):Y=FNR(23):
2822 :IFK=1THEN:X1=X:Y1=-(Y>12)*24:IFY<24AND(X>8ANDX<32)GOTO2820
2823 :IFK=2THEN:Y1=Y:X1=-(X>19)*39:
2824 :X=X1:Y=Y1:Y1=Y1-(1+(Y1>20)*2)*(K=1):X1=X1-(1+(X1>30)*2)*(K=2)
2825 :RETURN
2827 :
2828 :
2830 :REM----ZUFALLS-LINIEN(X1,Y1)
2831 :P=Y1+X1/100:GOSUB100:GOSUB130
2832 :FORH=1TOA:GOSUB2834:NEXT:RETURN
2833 :
2834 :K=FNR(4):L=FNR(38/V)*V:GOSUB2810:ON-(K=.)GOTO2834:RETURN
2996 :
2997 :
2998 :
2999 :
3000 :REM==============================
3001 :REM
3002 :REM      TITEL-MENUE
3003 :REM
3004 :REM==============================
3005 :
3100 :POKEBL,228:POKE53280,12:PRINT"[150][147]":POKE53281,5:POKEBL,32:
3120 :POKESP,191:POKE214,10:PRINT"[155]"SPC(40);:POKESP,29
3121 :PRINT"[145]"TAB(4)"[153] [199]:"MID$(STR$(GS),2)" "TAB(29)" [215]:"MID$(STR$(GW),2)" "
3122 :
3130 :PRINT"[211]AMMELN[211]IEDIE[196]IAMANTENAUF."
3131 :PRINT"[194]ERUEHREN[211]IEDABEIABERNICHTDIE"
3132 :PRINT"[215]AENDE."
3133 :PRINT"[204]EERTASTEZEIGTDIE[214]ERGLEICHSTAFEL,"
3134 :PRINT"[198]1BRINGT[211]IEZURUECKINDIES[205]ENUE."
3139 :
3140 :PRINT"(1-2)EINFACH(5-8)[208]ROFIS"
3141 :PRINT"(3-4)[203]OENNER( 9 )GEMISCHT";
3149 :
3150 :P=1.04:A$="[159][194][204][193][211][197][206]&":GOSUB3400:
3151 :P=6.02:A$="[158][196][201][193][205][193][206][212][197][206]":GOSUB3408
3160 :
3198 :
3199 :
3200 :GOSUB140::ON-(A$=R$ORA$="[136]"ORA$="[140]")-2*(A$=" "ORA$="")GOTO2000,4000
3210 :A=VAL(A$):IF(A)THEN:Z=A:GOTO2000
3211 :A=(A$="[199]"ANDGS>.)-(A$="G"):IFA$="_"THEN:RUN
3212 :IFATHEN:GS=GS+A*5:P=11.07:GOSUB100:PRINT"[153]"MID$(STR$(GS),2)" [155][146][191]";
3213 :A=(A$="[215]"ANDGS>.)-(A$="W")
3214 :IFATHEN:GW=GW+A*5:P=11.32:GOSUB100:PRINT"[153]"MID$(STR$(GW),2)" [155][146][191]";
3220 :IFA$="\"THEN:OPEN1,8,15:CLOSE1:ON-(ST=.)GOSUB20:GOTO3000:
3250 :IFA$<>"[148]"GOTO3200:
3299 :
3300 :REM---EDIT
3301 :PRINT"	[147]EDIT":SYS64789:SYS58451:SYS42107:
3302 :
3303 :
3304 :
3305 :
3400 :REM  ZEICHENAUSGABE (4X4)                   ---------------------
3401 :B$="[157][157][157][157]":C$="[145][145][145]":
3402 :A$(.)="[146] ":A$(1)="[146][190]":A$(2)="[146][188]":A$(3)="[162]":A$(4)="[146][187]":A$(5)="[146][161]"
3403 :A$(6)="[191]":A$(7)="[172]":A$(8)="[146][172]":A$(9)="[146][191]":A$(10)="[161]":A$(11)="[187]"
3404 :A$(12)="[146][162]":A$(13)="[188]":A$(14)="[190]":A$(15)=" "
3405 :REM---KONSTANTEN
3406 :ZS=53248+2048*1:B1=1:B2=2:B3=4:B4=8:B5=16:B6=32:B7=64:B8=128
3407 :
3408 :RV=.:GOSUB100:FORJ=1TOLEN(A$):A=ASC(MID$(A$,J)):GOSUB3410:NEXT:RETURN
3409 :
3410 :REM---AUSGABE(4X4)
3411 IFA<32OR(A>127ANDA<160)THEN:RV=(RVOR-(A=18))*-(A<>146):PRINTCHR$(A);:RETURN
3412 :B=ZS+FNAS(A)*8+RV*1024:C=PEEK(1):
3413 :POKE56334,.:POKE1,51:FORI=.TO7:A(I)=PEEK(B+I):NEXT:POKE1,C:POKE56334,1:
3414 :D$=B$:FORI=.TO7STEP2:B=A(I):A=A(I+1):IFI=6THEN:D$=C$
3415 :PRINTA$(SGN(BANDB8)*1+SGN(BANDB7)*2+SGN(AANDB8)*4+SGN(AANDB7)*8);
3416 :PRINTA$(SGN(BANDB6)*1+SGN(BANDB5)*2+SGN(AANDB6)*4+SGN(AANDB5)*8);
3417 :PRINTA$(SGN(BANDB4)*1+SGN(BANDB3)*2+SGN(AANDB4)*4+SGN(AANDB3)*8);
3418 :PRINTA$(SGN(BANDB2)*1+SGN(BANDB1)*2+SGN(AANDB2)*4+SGN(AANDB1)*8)D$;:NEXT
3419 :RETURN
3997 :
3998 :
3999 :
4000 :REM==============================
4001 :REM
4002 :REM    VERGLEICHSTAFEL
4003 :REM
4004 :REM==============================
4005 :
4100 :POKEBL,227:POKE53280,12:
4101 :PRINT"[155][147][214][197][210][199][204][197][201][195][200][211][212][193][198][197][204]":POKE53281,10:POKEBL,32:
4102 :POKE214,23:PRINT:PRINT"[153][211]PEICHERN([211])"TAB(16)"[204]ADEN([204])";
4103 :PRINTTAB(27)"[204]OESCHEN(_)[146][158]";
4110 :VG=.:Z=Z*-(Z0=.)+Z0:IFPK>PK(Z)THEN:PK(Z)=PK:LV(Z)=LV:VG=1
4120 :P=2.01:H=21:L=36:D$=" [146][155]":GOSUB1500
4121 :IFVGTHEN:P=22.09:GOSUB100:PRINT"  [196]AS IST EIN [210]EKORD  ";
4122 :D=Z:GOSUB4140:IFVGTHEN:A=4:GOSUB1601
4123 :GOTO4200:
4139 :
4140 :A=4:E=37:PRINT"":
4141 :FORI=1TO9:POKE211,A:POKE19,1
4142 :PRINT"[211]TUFE:[146]"I"[157],"LV(I)TAB(19)"[208]UNKTE:[146]"PK(I)"[157]"D$TAB(E);
4143 PRINTLEFT$("[157][157][157]<<<",-(D=I)*8)R$:POKE19,.:NEXT
4144 :PRINTTAB(A)"[211]TUFE:[146]"Z"[157],"LV;TAB(19)"[208]UNKTE:[146]"PK""D$TAB(E);
4145 :P=D*2+1+.34:GOSUB100:RETURN
4199 :
4200 :GOSUB140:REM---TASTEN
4201 :IFA$=CHR$(20)ORA$="[157]"THEN:PK(D)=.:LV(D)=.:VG=VG+(Z=D):GOSUB4140:GOTO4200
4202 :IFA$="L"THEN:GOSUB4400:GOSUB4140:GOTO4200
4203 :IFA$="S"THEN:GOSUB4500:GOSUB4140:GOTO4200
4205 :IFA$=""THEN:A=1:ON1-(D<9)GOTO4200,4220:
4206 :IFA$="[145]"THEN:A=-1:ON1-(D>1)GOTO4200,4220:
4207 :IF(A$=R$ORA$="[136]"ORA$="[140]")THEN:Z=D:GOTO2000
4215 :ON-(VAL(A$)>.)GOTO3210:GOTO3000
4216 :
4220 :D=D+A:PRINTD$"   [157][157][157]"A$A$"<<<[157][157][157]";:GOTO4200
4221 :
4400 :REM----TABELLE LADEN
4401 :A$="":GOSUB4800:IFFTHEN:RETURN:
4402 :OPEN1,8,.,NT$+",S,R":FORI=1TO10:INPUT#1,PK(I),LV(I):NEXT:INPUT#1,GS,GW
4403 :CLOSE1:VG=.:RETURN:
4404 :
4500 :REM----TABELLE SPEICHERN
4501 :GOSUB4800:ON-(F<.)GOTO4503::OPEN1,8,15,"S:"+NT$:CLOSE1
4502 :OPEN1,8,1,"@0:"+NT$+",S,W":FORI=1TO10:PRINT#1,PK(I)R$LV(I):NEXT:
4503 :PRINT#1,GS;R$;GW:CLOSE1
4504 :RETURN:
4602 :
4800 :REM---FLOPPY CHECK
4801 :POKE768,61:OPEN1,8,.,NT$+",S,R":CLOSE1:POKE768,139:IFSTTHEN:F=-1:RETURN:
4802 :OPEN1,8,15:INPUT#1,F:CLOSE1:RETURN:
4803 :
4804 :
5000 :REM==============================
5001 :REM                             "
5002 :[143]      VOREINSTELLUNGEN       "
5003 :REM                             "
5004 :[143]==============================
5005 :[141]9999:[141]5700:
5006 :
5007 :
5030 :[153]"LOAD ASCREI-(null)OFT FUER  (null)PIELELIEBHABER"
5031 :[153]" ASCREE-(null)OFT FOR   CHR$AMELOVERS"
5032 :[153]"TAN(null)TANWAITSTR$.PEEKREITINGERTAN(null)TANWAIT (2001)"
5033 :[151]42926,44:[129]I[178]1[164]3000:[130]:
5034 :
5035 :
5050 :[143]----ZEICHEN INST.
5051 :[141]5800:[141]5830:
5052 :
5053 :
5100 :[143]---FUNKTIONEN                  :
5101 :[150][165] R(A)[178][181]([187](1)[172]A[171](A[177].))
5102 :[150][165] P(A)[178][194]([194](209)[170][194](210)[172]256[170][185](.)[170]A)::[141]112
5103 :[150][165] S(A)[178][194](59610[170]([194](646)[175]15))
5104 :[150][165] K(A)[178][197]([196](A)):
5105 :[150][165] M(A)[178]A[171][181](A[173]M)[172]M:
5106 :[150][165] AS(A)[178]A[170](A[177]63)[172]64[171](A[177]95[175]A[179]128)[172]32[170](A[177]191)[172]64[170](A[178]255)[172]33
5107 :
5109 :
5200 :[143]---VARIABLEN                  :
5205 :NT$[178]"--BU+DI+BU+DI---":[141]4400
5206 :[134] D(256),A$(16),B$(16)
5209 :
5210 :BR[178]([194](210)[175]252)[172]256:FR[178]([194](244)[175]252)[172]256:JO[178]56320:
5211 :VN[178][171]([194](59911)[178]32):BL[178]59912[170]VN[172]3:SP[178]43843:GN[178][194](123):A[178][187]([171]TI)
5212 :
5300 :A$[178]" THEN":L[178]39:[141]120:L1$[178]A$[170]" "
5301 :A$[178]"TOCMD":L[178]69:[141]120:L2$[178]A$
5302 :R$[178][199](13):FI$[178]"WAITSYS@CMD"
5400 :Z[178]9:[151]649,1:[151]652,2:[141]5510:[137]3000:
5500 :[143]----ANZEIGEN
5501 :[139]LV[178]1[167]:A$[178]"LIST(null)TUFEWAIT:SYS"[170][202]([196](Z),2):[137]5505
5502 :M[178]10:M[178][165]M(LV):[139]M[178]3[176]M[178]7[167]:A$[178]"SYS"[170]B$([165]R(11)):[137]5505
5503 :[145][171](M[177].)[137]5506:::A$[178]"SYS(null)EVELCMD:PRINT"[170][200]("CMD",[171](LV[177]99))
5504 :A$[178]A$[170][200]("CMDCMDCMDCMDCMDCMDCMDCMDCMD",99[172][171](LV[177]999))[170][202]([196](LV),2)
5505 :P[178]9.02:[141]3400:[141]140:[145][171](A$[178]"T")[137]5507:[139]A$[178]"INPUT"[167]:[142]:
5506 :A$[178]F$:[141]2030:[142]:
5507 :[141]5506:[129]K[178]1[164]12:[153]"SYS";:A$[178]B$(K):[141]5505:K[178]K[171](A$[178]"INPUT")[172]99:[130]:
5508 :[142]:
5509 :
5510 :[143]----ANZEIGTEXTE
5511 :B$(1)[178]"(null)OS!CMD!CMD!CMD!CMD!CMD!"
5512 :B$(2)[178]"(null)PIELAN!"
5513 :B$(3)[178]"(null)ILLIGEH"
5514 :B$(4)[178]"ATNBGEHT'SYSS"
5515 :B$(5)[178]"(null)OSGEHTS"
5516 :B$(6)[178]"ATNBFLUG!CMD!CMD!"
5517 :B$(7)[178]"ASCREICMD-SYSCMDLEFT$EIT"
5518 :B$(8)[178]"CMDCHR$LUECKONAONUONF"
5519 :B$(9)[178]"(null)ANDA.CMD.CMD."
5520 B$(10)[178]"LEFT$EBELVOR"
5521 B$(11)[178]"(null)TROMAN!"
5522 B$(12)[178]"(null)TART.CMD.CMD.CMD."
5529 :[142]:
5600 :
5698 :
5699 :
5700 :[143]---ROM TO RAM,SCREEN(52224)
5701 :[151]646,[194](53281)
5702 [151]56334,.:[151]1,51:[129]I[178]88[164]91:[151]I,.:[130]:[151]781,97:[151]782,.:[158]41971
5704 [151]1,53:[151]56334,1:[151]648,204:[158]58692:[151]56576,196:[151]53272,54:[142]
5705 :
5706 :
5800 :[143]---ZEICHEN DATAS
5801 :[141]112:A[178][165]L(.):[141]110:[129]J[178]1[164]6:[141]5804:[130]:[142]
5803 :
5804 :[143]----ZEICHEN INST.
5805 :[135]N:N[178]55296[170]N[172]8:
5806 :[151]56334,.:[151]1,51:[129]I[178].[164]7:[135]A:[151]N[170]I,A:[130]:[151]1,53:[151]56334,1
5807 :[142]:
5808 :
5809 :
5812 :[131]112,,84,56,254,56,84,,:
5813 :[131]113,,,60,60,60,60,,::::
5814 :[131]114,,54,127,127,62,28,8,::
5815 :[131]115,,60,102,66,66,102,60,:
5816 :[131]116,,60,126,126,126,126,60,:
5817 :[131]117,8,28,62,127,62,28,8,:
5818 :
5819 :
5830 :[143]---FIGUR DATAS
5831 :L(1)[178][165]L(.):[131],60,126,90,126,126,118,60,:[143]---MINIGESICHT
5832 :L(2)[178][165]L(.):[131],60,118,118,8,118,118,60,:[143]---KREUZ
5833 :L(3)[178][165]L(.):[131],126,126,90,90,126,118,60,:[143]---MINIGESICHT2
5834 :[142]
5835 :
5836 :
5839 :
5931 :[153]" ASCREE-(null)OFT FOR   CHR$AME-(null)OVERS"
9999 :[142]: